home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
zbpc_460.zip
/
UTILITY.EXE
/
CALL.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-06-16
|
1KB
|
33 lines
00010 ' *** MUST HAVE THESE DIM STATEMENTS AT BEGINNING ***
00020 :
00030 DIM offset%,segment%
00040 DIM 3 Discriptor1$,Discriptor2$
00050 :
00060 "MAKE CALL" ' *** SUBROUTINE TO MAKE CALL ***
00070 :
00080 ' *** FIX FOR STRING VARIABLES TO BE PASSED ***
00090 :
00100 Ptr% = VARPTR(Discriptor1$)
00110 POKE Ptr%, LEN(A1$) : POKE WORD Ptr%+1,VARPTR(A1$)
00120 Ptr% = VARPTR(Discriptor2$)
00130 POKE Ptr%,LEN(A2$) : POKE WORD Ptr%+1,VARPTR(A2$)
00140 :
00150 ' *** MAKE segment%:offset% EQUAL ADDRESS OF ROUTINE ***
00160 :
00170 segment% = MEM D : offset% = &1000
00180 :
00190 ' *** MAKE CALL TO ROUTINE ***
00200 :
00210 MACHLG &B8,Var1,&50
00220 MACHLG &B8,Var2,&50
00230 MACHLG &B8,Discriptor1$,&50
00240 MACHLG &B8,Discriptor2$,&50
00250 MACHLG &BB,offset%,&FF,&1F
00260 RETURN
00270 :
00280 ' *** EXAMPLES TO MAKE CALL ***
00290 GOSUB "MAKE CALL"
00300 Var1 = 3 : Var2 = 69 : A1$ = "HELP" : A2$ = "ME"
00310 GOSUB "MAKE CALL"
65534 *** TAKE THIS LINE OUT WHEN READY TO TRY! ***